inherited fmIstochnik: TfmIstochnik
  Left = 444
  Top = 173
  Width = 741
  Height = 491
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1080#1089#1090#1086#1095#1085#1080#1082#1086#1074
  Constraints.MinHeight = 491
  Constraints.MinWidth = 741
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 437
    Width = 733
  end
  inherited Panel1: TPanel
    Width = 733
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 563
    end
    inherited BitBtn2: TBitBtn
      Left = 643
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 733
    Height = 392
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 2
    object dxBarDockControl1: TdxBarDockControl
      Left = 1
      Top = 1
      Width = 731
      Height = 26
      Align = dalTop
      BarManager = dxBarManager1
    end
    object cxGrid1: TcxGrid
      Left = 1
      Top = 145
      Width = 731
      Height = 246
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      LookAndFeel.Kind = lfStandard
      object cxGridDBTableView1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.Position = fpTop
        OnCellClick = cxGridDBTableView1CellClick
        DataController.DataSource = dsIstochnik
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        FilterRow.InfoText = #1065#1077#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1092#1080#1083#1100#1090#1088#1072
        NewItemRow.InfoText = #1065#1105#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1076#1086#1073#1072#1074#1083#1077#1085#1080#1103' '#1085#1086#1074#1086#1081' '#1089#1090#1088#1086#1082#1080
        OptionsBehavior.CellHints = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnGrouping = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 10
        OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Preview.Visible = True
        Styles.IncSearch = DMInv.cxKrasniyText
        Styles.Selection = DMInv.cxJoltiyFon
        Styles.Header = DMInv.cxSiniyText
        object cxGridDBTableView1IDISTOCHNIK: TcxGridDBColumn
          Caption = #1053#1086#1084#1077#1088
          DataBinding.FieldName = 'IDISTOCHNIK'
          Width = 95
        end
        object cxGridDBTableView1ISTOCHNIK: TcxGridDBColumn
          Caption = #1048#1089#1090#1086#1095#1085#1080#1082
          DataBinding.FieldName = 'ISTOCHNIK'
          Width = 184
        end
        object cxGridDBTableView1AUTORIST: TcxGridDBColumn
          Caption = #1040#1074#1090#1086#1088
          DataBinding.FieldName = 'AUTORIST'
          Width = 183
        end
        object cxGridDBTableView1ISTYEAR: TcxGridDBColumn
          Caption = #1043#1086#1076' '#1074#1099#1087#1091#1089#1082#1072
          DataBinding.FieldName = 'ISTYEAR'
          Width = 62
        end
        object cxGridDBTableView1PUBLIST: TcxGridDBColumn
          Caption = #1048#1079#1076#1072#1090#1077#1083#1100#1089#1090#1074#1086
          DataBinding.FieldName = 'PUBLIST'
          Width = 142
        end
      end
      object cxGridLevel1: TcxGridLevel
        GridView = cxGridDBTableView1
      end
    end
    object pNewIstochnik: TPanel
      Left = 1
      Top = 27
      Width = 731
      Height = 118
      Align = alTop
      TabOrder = 2
      Visible = False
      DesignSize = (
        731
        118)
      object Label22: TLabel
        Left = 12
        Top = 17
        Width = 77
        Height = 13
        Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 12
        Top = 41
        Width = 35
        Height = 13
        Caption = #1040#1074#1090#1086#1088':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 12
        Top = 65
        Width = 76
        Height = 13
        Caption = #1044#1072#1090#1072' '#1074#1099#1087#1091#1089#1082#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 12
        Top = 89
        Width = 47
        Height = 13
        Caption = #1048#1079#1076#1072#1085#1080#1077':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxDBTextEdit1: TcxDBTextEdit
        Left = 97
        Top = 13
        DataBinding.DataField = 'ISTOCHNIK'
        DataBinding.DataSource = dsIstochnik
        TabOrder = 0
        Width = 424
      end
      object BitBtn3: TBitBtn
        Left = 532
        Top = 10
        Width = 92
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
        Default = True
        TabOrder = 1
        OnClick = BitBtn3Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn4: TBitBtn
        Left = 628
        Top = 10
        Width = 89
        Height = 25
        Anchors = [akTop, akRight]
        Cancel = True
        Caption = #1054#1090#1084#1077#1085#1080#1090#1100
        TabOrder = 2
        OnClick = BitBtn4Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object cxDBTextEdit2: TcxDBTextEdit
        Left = 97
        Top = 37
        DataBinding.DataField = 'AUTORIST'
        DataBinding.DataSource = dsIstochnik
        TabOrder = 3
        Width = 424
      end
      object cxDBTextEdit4: TcxDBTextEdit
        Left = 97
        Top = 85
        DataBinding.DataField = 'PUBLIST'
        DataBinding.DataSource = dsIstochnik
        TabOrder = 4
        Width = 424
      end
      object dxDBDateEdit1: TdxDBDateEdit
        Left = 96
        Top = 61
        Width = 121
        TabOrder = 5
        DataField = 'ISTYEAR'
        DataSource = dsIstochnik
      end
    end
  end
  object dsIstochnik: TDataSource
    DataSet = qIstochnik
    Left = 312
    Top = 208
  end
  object qIstochnik: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select i.*'
      'from istochnik i'
      'where i.iisdelete is null')
    UpdateObject = quIstochnik
    GeneratorField.Field = 'SDID'
    Left = 344
    Top = 208
    object qIstochnikIDISTOCHNIK: TIntegerField
      FieldName = 'IDISTOCHNIK'
      Origin = '"ISTOCHNIK"."IDISTOCHNIK"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qIstochnikISTOCHNIK: TIBStringField
      FieldName = 'ISTOCHNIK'
      Origin = '"ISTOCHNIK"."ISTOCHNIK"'
      Size = 255
    end
    object qIstochnikAUTORIST: TIBStringField
      FieldName = 'AUTORIST'
      Origin = '"ISTOCHNIK"."AUTORIST"'
      Size = 255
    end
    object qIstochnikISTYEAR: TDateTimeField
      FieldName = 'ISTYEAR'
      Origin = '"ISTOCHNIK"."ISTYEAR"'
    end
    object qIstochnikPUBLIST: TIBStringField
      FieldName = 'PUBLIST'
      Origin = '"ISTOCHNIK"."PUBLIST"'
      Size = 255
    end
    object qIstochnikITIMEENTER: TDateTimeField
      FieldName = 'ITIMEENTER'
      Origin = '"ISTOCHNIK"."ITIMEENTER"'
    end
    object qIstochnikITIMEEDIT: TDateTimeField
      FieldName = 'ITIMEEDIT'
      Origin = '"ISTOCHNIK"."ITIMEEDIT"'
    end
    object qIstochnikIUSERENTER: TIBStringField
      FieldName = 'IUSERENTER'
      Origin = '"ISTOCHNIK"."IUSERENTER"'
      Size = 80
    end
    object qIstochnikIUSEREDIT: TIBStringField
      FieldName = 'IUSEREDIT'
      Origin = '"ISTOCHNIK"."IUSEREDIT"'
      Size = 80
    end
    object qIstochnikIISDELETE: TIntegerField
      FieldName = 'IISDELETE'
      Origin = '"ISTOCHNIK"."IISDELETE"'
    end
  end
  object quIstochnik: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDISTOCHNIK,'
      '  ISTOCHNIK,'
      '  AUTORIST,'
      '  ISTYEAR,'
      '  PUBLIST,'
      '  ITIMEENTER,'
      '  ITIMEEDIT,'
      '  IUSERENTER,'
      '  IUSEREDIT,'
      '  IISDELETE'
      'from istochnik '
      'where'
      '  AUTORIST = :AUTORIST and'
      '  IDISTOCHNIK = :IDISTOCHNIK and'
      '  IISDELETE = :IISDELETE and'
      '  ISTOCHNIK = :ISTOCHNIK and'
      '  ISTYEAR = :ISTYEAR and'
      '  ITIMEEDIT = :ITIMEEDIT and'
      '  ITIMEENTER = :ITIMEENTER and'
      '  IUSEREDIT = :IUSEREDIT and'
      '  IUSERENTER = :IUSERENTER and'
      '  PUBLIST = :PUBLIST')
    ModifySQL.Strings = (
      'update istochnik'
      'set'
      '  AUTORIST = :AUTORIST,'
      '  IDISTOCHNIK = :IDISTOCHNIK,'
      '  IISDELETE = :IISDELETE,'
      '  ISTOCHNIK = :ISTOCHNIK,'
      '  ISTYEAR = :ISTYEAR,'
      '  ITIMEEDIT = :ITIMEEDIT,'
      '  ITIMEENTER = :ITIMEENTER,'
      '  IUSEREDIT = :IUSEREDIT,'
      '  IUSERENTER = :IUSERENTER,'
      '  PUBLIST = :PUBLIST'
      'where'
      '  IDISTOCHNIK = :OLD_IDISTOCHNIK ')
    InsertSQL.Strings = (
      'insert into istochnik'
      
        '  (AUTORIST, IDISTOCHNIK, IISDELETE, ISTOCHNIK, ISTYEAR, ITIMEED' +
        'IT, ITIMEENTER, '
      '   IUSEREDIT, IUSERENTER, PUBLIST)'
      'values'
      
        '  (:AUTORIST, :IDISTOCHNIK, :IISDELETE, :ISTOCHNIK, :ISTYEAR, :I' +
        'TIMEEDIT, '
      '   :ITIMEENTER, :IUSEREDIT, :IUSERENTER, :PUBLIST)')
    DeleteSQL.Strings = (
      'delete from istochnik'
      'where'
      '  AUTORIST = :OLD_AUTORIST and'
      '  IDISTOCHNIK = :OLD_IDISTOCHNIK and'
      '  IISDELETE = :OLD_IISDELETE and'
      '  ISTOCHNIK = :OLD_ISTOCHNIK and'
      '  ISTYEAR = :OLD_ISTYEAR and'
      '  ITIMEEDIT = :OLD_ITIMEEDIT and'
      '  ITIMEENTER = :OLD_ITIMEENTER and'
      '  IUSEREDIT = :OLD_IUSEREDIT and'
      '  IUSERENTER = :OLD_IUSERENTER and'
      '  PUBLIST = :OLD_PUBLIST')
    Left = 376
    Top = 208
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    PopupMenuLinks = <>
    UseSystemFont = True
    Left = 314
    Top = 239
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'm1'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 205
      FloatTop = 165
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton1'
        end
        item
          Visible = True
          ItemName = 'dxBarButton2'
        end
        item
          Visible = True
          ItemName = 'dxBarButton3'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Visible = ivAlways
      ImageIndex = 51
      OnClick = dxBarButton1Click
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton2Click
    end
    object dxBarButton3: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Visible = ivAlways
      ImageIndex = 46
      OnClick = dxBarButton3Click
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1096#1072#1073#1083#1086#1085
      Visible = ivNever
      ImageIndex = 37
    end
  end
end
